MacFormat 1996 June/macformat-038.iso/Demos/Interactive Wave/_DATAS/SHARED.Dxr/00981.ls

Text File | 1995-08-06 | 1.7 KB | 91 lines

on BalayCursMain
  global DcCursMain, CursMain
  if voidp(DcCursMain) or (DcCursMain = 0) then
    cursor(-1)
  else
    set DcCursMain to 0
    cursor(CursMain)
  end if
end

on SetAffTxtRoll AccuA
  global DcCastRoll, CastRollEff
  if AccuA = CastRollEff then
    if DcCastRoll <> CastRollEff then
      exit
    end if
  end if
  set DcCastRoll to AccuA
end

on AffTxtRoll
  global DcCastRoll, SprRollOver, CastRollEff
  set the castNum of sprite SprRollOver to DcCastRoll
  set DcCastRoll to CastRollEff
end

on GestBarreRoll
  global DcTransit, DcDemo, SprRollOver, CastTextDemoRoll, glQTmemo, ComptBoucleEnter, DcBarrette, SprFondBar, NcRollBarrette
  if DcTransit then
    exit
  end if
  if DcDemo then
    set the visible of sprite SprRollOver to the ticks / 30 mod 2
    set the castNum of sprite SprRollOver to CastTextDemoRoll
    exit
  end if
  if getAt(glQTmemo, 1) <> 0 then
    set ComptBoucleEnter to (ComptBoucleEnter + 1) mod 8
    if ComptBoucleEnter <> 0 then
      exit
    end if
  end if
  if DcBarrette then
    set AccuRoll to rollOver(SprFondBar)
    if AccuRoll then
      if NcRollBarrette <> 1 then
        BalayHAUT()
      end if
      BalayBAS()
    else
      if NcRollBarrette <> 0 then
        BalayBAS()
      end if
      BalayHAUT()
    end if
    set NcRollBarrette to AccuRoll
  else
    BalayHAUT()
  end if
  AffTxtRoll()
  BalayCursMain()
end

on BalayBAS
  global DcQuit
  if DcQuit then
    GestQuit()
  else
    BalayBarrette()
  end if
end

on BalayHAUT
  BalayRollCadre()
  BalayRollTexte()
  BalayRollPict()
  BalayRollAuto()
  BalayRollGen()
  BalayRollCast()
end

on DesactiveRolls
  SetDcBarrette(0)
  SetDcRollCadre()
  SetDcRollTexte()
  SetDcRollPict()
  SetDcRollAuto()
  SetDcRollOver()
  SetDcRollCast()
end